-- paquetage de base
with Ada.Text_IO, Ada.Integer_Text_IO;use Ada.Text_IO,Ada.Integer_Text_IO;
with GLib;
-- paquetages de gestion des exceptions
with Ada.Exceptions;use Ada.Exceptions;

-- paquetage du projet
with T_Standard; use T_Standard;



package T_Fixe is
	
	-- Declaration du type Fixe qui gere une tache telephone fixe
	task type Fixe is
	-- Initialisation du telephone
		entry INIT(unNum : GLib.Guint; unStandard : GLib.Guint);
	-- Signalisation d'un appel entrant
		entry APPEL_ENTRANT;
	-- Initialiser la conversation
		entry DECROCHER;
	-- Ecouter le correspondant
		entry ECOUTER(saVoix : in String);
	-- Parler au correspondant
		entry PARLER(maVoix : in String);
	-- Mettre fin a la conversation
		entry RACCROCHER;
	-- Notifier au Standard que l'on veut appeller un numéros
		entry APPELER(destinataire : in GLib.Guint);
	end Fixe;

	type ptr_Fixe is access Fixe;

end T_Fixe;